home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2611.ZIP / MANIFEST.ZIP / COUNTER.PRG next >
Text File  |  1988-04-14  |  709b  |  44 lines
  1. ******************
  2. *  COUNTER.PRG   *
  3. *  CHOICE 4      *
  4. *  SUB 8, SUB 4  *
  5. *  SUBROUTINE    *
  6. *  APR 14, 1988  *
  7. *  GUY DUBEC     *
  8. ******************
  9. STOR SPACE(4) TO EPA1, EPA2, EPA3, EPA4
  10. STOR SPACE(6) TO ST1, ST2, ST3, ST4
  11. STOR 000000 TO TOT1, TOT2, TOT3, TOT4
  12. IF COUNT=1
  13.   STOR EPACODE TO EPA1
  14.   STOR TON TO TOT1
  15.   STOR COUNT+1 TO COUNT
  16.   SKIP
  17. ELSE
  18.   RETURN
  19. ENDIF
  20. IF COUNT=2
  21.   STOR EPACODE TO EPA2
  22.   STOR TON TO TOT2
  23.   STOR COUNT+1 TO COUNT
  24.   SKIP
  25. ELSE
  26.   RETURN
  27. ENDIF
  28. IF COUNT=3
  29.   STOR EPACODE TO EPA3
  30.   STOR TON TO TOT3
  31.   STOR COUNT+1 TO COUNT
  32.   SKIP
  33. ELSE
  34.   RETURN
  35. ENDIF
  36. IF COUNT=4
  37.   STOR EPACODE TO EPA4
  38.   STOR TON TO TOT4
  39.   SKIP
  40. ELSE
  41.   RETURN
  42. ENDIF
  43. RETURN
  44.